From: Juri Linkov <juri@jurta.org>
Date: Sun, 22 Feb 2009 21:51:38 +0000 (+0000)
Subject: (dired-smart-shell-command): Remove code that uses
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1619
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=760362f100f8a32ef793fc4a216d6aa74aa26984;p=emacs.git

(dired-smart-shell-command): Remove code that uses
minibuffer-with-setup-hook to set minibuffer-default-add-function
to minibuffer-default-add-shell-commands because the same code was
already moved to `read-shell-command' 2008-07-31.
---

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 0dd36800916..9570ecda71f 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -843,14 +843,10 @@ Knows about the special cases in variable `default-directory-alist'."
   "Like function `shell-command', but in the current Virtual Dired directory."
   (interactive
    (list
-    (minibuffer-with-setup-hook
-	(lambda ()
-	  (set (make-local-variable 'minibuffer-default-add-function)
-	       'minibuffer-default-add-shell-commands))
-      (read-shell-command "Shell command: " nil nil
-			  (cond
-			   (buffer-file-name (file-relative-name buffer-file-name))
-			   ((eq major-mode 'dired-mode) (dired-get-filename t t)))))
+    (read-shell-command "Shell command: " nil nil
+			(cond
+			 (buffer-file-name (file-relative-name buffer-file-name))
+			 ((eq major-mode 'dired-mode) (dired-get-filename t t))))
     current-prefix-arg
     shell-command-default-error-buffer))
   (let ((default-directory (dired-default-directory)))